home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Special 16
/
AMIGAplus Sonderheft 16 (1998)(ICP)(DE)[!].iso
/
pd
/
anwendungen
/
amicad
/
arexx_english
/
savepalette.amicad
< prev
next >
Wrap
Text File
|
1998-08-09
|
793b
|
34 lines
/* Save the current palette in a file */
/* The file can be loaded using the menu Preferences/Configuration/Load */
/* $VER: 1.01e (© R.Florac, Chez Corbin, 9 août 1998) */
options results
signal on error
signal on syntax
'REQFILE("Name of the destination file?", "")'; fichier=result
if fichier ~="" then do
if open(file, fichier, 'W') then do
call writeln(file, "AmiCADPrefs 1.1")
call writeln(file, "[Palette]")
do color=0 to 15
c="Color"||color||"="
'GETCOLOR('color')'; c=c||result
call writeln(file,c)
end
close(file)
end
end
exit
syntax:
erreur=RC
'MESSAGE("Script SavePalette.AmiCAD"+CHR(10)+"Syntax error"+CHR(10)+"in line 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
exit
error:
'MESSAGE("Script SavePalette.AmiCAD"+CHR(10)+"Error in line 'SIGL'")'
exit